home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / pob196_a.zip / POB196.PPS < prev   
Text File  |  1996-05-27  |  3KB  |  133 lines
  1. string     input
  2. string text, text1, text2, text3
  3. int ypos, run
  4. IF (!(ANSION())) then
  5.    dispfile ppepath() + "noansi",1+2+4
  6. stop
  7. endif
  8.  
  9. Dispfile PPEPATH()+PPENAME(), 1+2+4
  10. ;Dispfile PPEPATH()+"test", 1+2+4
  11. kbdflush
  12. ypos = getY()
  13. text1 = SCRTEXT(42,ypos,7,true)
  14. text2 = SCRTEXT(54,ypos,10,true)
  15. text3 = SCRTEXT(69,ypos,8,true)
  16. inc ypos
  17. ansipos 2,ypos
  18. print "@X08POB196 1.01 POB(@X0Ac@X08)1996"
  19. ansipos 69,ypos
  20. text = stripatx(text3)
  21. print "@X4F",UPPER(text),"@X07"
  22. run = 3
  23. :cont
  24. input = tinkey(5400)
  25.  
  26. SELECT CASE INPUT
  27.  
  28.         CASE (CHR(27))
  29.         KBDSTUFF "N" + CHR(13)
  30.         CASE (CHR(13))," ", "DOWN"
  31.               select case run
  32.                   case 1
  33.                      KBDSTUFF "NS"+CHR(13)
  34.                   case 2
  35.                      ansipos 1,ypos
  36.                      clreol
  37.                      KBDSTUFF "N"+CHR(13)
  38.                   default
  39.                      ansipos 1,ypos
  40.                      clreol
  41.                      KBDSTUFF CHR(13)
  42.  
  43.               endselect
  44.  
  45.         CASE "s","S": KBDSTUFF "NS" + CHR(13)
  46.         CASE "N","n","UP"
  47.             ansipos 1,ypos
  48.             clreol
  49.             KBDSTUFF "N" + CHR(13)
  50.         case "LEFT"
  51.            if (run = 1) then
  52.              run = 3
  53.            else
  54.              dec run
  55.            endif
  56.            select case run
  57.               case 1
  58.                   ansipos 54,ypos
  59.                   print text2
  60.                   ansipos 42,ypos
  61.                   text = text1
  62.                   text = stripatx(text)
  63.                   print "@X4F",UPPER(text),"@X07"
  64.                   goto cont
  65.  
  66.               case 2
  67.                   ansipos 69,ypos
  68.                   print text3
  69.                   ansipos 54,ypos
  70.                   text = text2
  71.                   text = stripatx(text)
  72.                   print "@X4F",UPPER(text),"@X07"
  73.                   goto cont
  74.               case 3
  75.                   ansipos 42,ypos
  76.                   print text1
  77.                   ansipos 69,ypos
  78.                   text = text3
  79.                   text = stripatx(text)
  80.                   print "@X4F",UPPER(text),"@X07"
  81.                   goto cont
  82.            endselect
  83.  
  84.         case "RIGHT"
  85.            if (run = 3) then
  86.              run = 1
  87.            else
  88.              inc run
  89.            endif
  90.            select case run
  91.               case 1
  92.                   ansipos 69,ypos
  93.                   print text3
  94.                   ansipos 42,ypos
  95.                   text = text1
  96.                   text = stripatx(text)
  97.                   print "@X4F",UPPER(text),"@X07"
  98.                   goto cont
  99.  
  100.               case 2
  101.                   ansipos 42,ypos
  102.                   print text1
  103.                   ansipos 54,ypos
  104.                   text = text2
  105.                   text = stripatx(text)
  106.                   print "@X4F",UPPER(text),"@X07"
  107.                   goto cont
  108.               case 3
  109.                   ansipos 54,ypos
  110.                   print text2
  111.                   ansipos 69,ypos
  112.                   text = text3
  113.                   text = stripatx(text)
  114.                   print "@X4F",UPPER(text),"@X07"
  115.                   goto cont
  116.            endselect
  117.  
  118.  
  119.       DEFAULT
  120.          KBDSTUFF CHR(13)
  121.  
  122. ENDSELECT
  123.  
  124.  
  125.    newline
  126.    end
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.